<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<HTML>

<%=sbody%>
<%=scabecalho%>RELACAO MEDIA DE ADOCOES POR MATERIA NAS ESCOLAS DE 5 a 8 SERIES </b></font>

<%
sano=request("ANO")
sestado=Request("ESTADO")
sDIVULGADOR=Request("DIVULGADOR")

%>

<CENTER><b>Regiao:</b><%=sestado%>  <b>Ano:</b><%=sano%>
<%
IF sDIVULGADOR<>"" THEN
  RESPONSE.WRITE " / Divulgador : " & sDIVULGADOR & " "
  WH_DIV=" AND DIVULGADOR='"& sDIVULGADOR &"'"
END IF
%>
<table <%=stable%> border=1 width=65%>
<BR><BR>
<TR><TD align=center><b>Escola</TD><TD><b>Regiao</TD><TD><b>UF</TD><TD><b>T.Adoc.</TD><TD><b>Media</TD></TR>

<%
ct=0
Set Conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeout = 1500
Conn.Open sCo1, sCo2, sCo3

sSQl="SELECT COUNT(TITULO) AS TIT,ESCOLA.NM_ESCOLA,ADOCAO.ESCOLA,ESCOLA.REGIAO,ESCOLA.UF,ESCOLA.CODIGO FROM ADOCAO LEFT JOIN ESCOLA ON(ADOCAO.ESCOLA=ESCOLA.CODIGO)"
sSQl=sSQl&" WHERE ADOCAO.ANO_ADOCAO='"&sano&"' " & WH_DIV
IF TRIM(sestado)="Todos" THEN
sSQl=sSQl&" AND ESCOLA.REGIAO<>'ZZ'"
else
IF TRIM(sestado)="RS" OR TRIM(sestado)="SC" THEN 
sSQl=sSQl&" AND ESCOLA.UF='"&sestado&"'"
ELSE
sSQl=sSQl&" AND ESCOLA.REGIAO='"&sestado&"'"
END IF
END IF
sSQl=sSQl&" AND ADOCAO.SERIE >'4' AND ADOCAO.SERIE<'9' GROUP BY ADOCAO.ESCOLA,ESCOLA.NM_ESCOLA,ESCOLA.REGIAO,ESCOLA.UF,ESCOLA.CODIGO ORDER BY ADOCAO.TIT "

'response.write sSQl
'response.end
SET RS=Conn.Execute(sSQl)
Do WHILE NOT RS.EOF 
ct=ct+1
%>
<TR><TD><a href=adocao_escola_det.asp?Codescola=<%=RS("CODIGO")%>><%=RS("CODIGO")%>-<%=RS("NM_ESCOLA")%></a></TD><TD><%=RS("REGIAO")%></TD><TD><%=RS("UF")%></TD><TD><%=RS("TIT")%></TD><TD><%=RS("TIT")/4%></TD>
<%
RS.MOVENEXT 
LOOP 
%>
<TR><TD align=center colspan=5><b>Total:<%=ct%> escolas</TD></TR>
</table>
</body>
</HTML>

 
